Whiteline: Alpha

home *** CD-ROM | disk | FTP | other *** search

/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / forth / doc / gemwords.doc < prev next >

Wrap

Text File | 1994-09-22 | 25.6 KB | 649 lines

0720303030366 1Forth-GEM-Bibliothek 2page # 9[....................................................]011 üëDieGEM-BibliothekdesvolksFORTH83 Ç Diese volksFORTH83-VersionenthälteineumfangreicheBibliothek derGEM-Routinen.DieseBibliothekgliedertsichindieTeileAES ("ApplicationEnvironmentSystem")undVDI("VirtualDevice Interface").ImvolksFORTHgehörtaucheinTeilBASICS dazu,der dieVDIundAESgemeinsamenTeileenthält. DieNamendervonGEMzurVerfügunggestelltenFunktionen enstprechenvÖlligdenNamen,dievom"C"desEntwicklungspakets her bekannt sind.VielePräfixehabenwirjedochweggelassen,da sienurunnötigvielPlatzverbrauchenwürden. Die Funktionen benötigenzumeistauchdieselbenArgumente,wobeiwirunsbemüht haben,überflüssigeEingangswertewegzulassen(z.B.bestimmte Handles).MancheAufrufeliefernsoviele Ausgangswerte,daß wir unsentschlossenhaben,sienichtalleaufdenStackzupacken.In diesemFallmußmansieselbstausdemenstprechendenArrayholen. Wo,findetmanggf.inderLiteratur.DieEingangswertestehen jedoch(mitAusnahmevonEVNT_MULTI)aufdenStack. -) Wer Zugang zur GEM-Programmierung sucht, sollte sich die Literatur des Entwicklungspakets von Atari verschaffen. Dort sind (fast) alle Funktionen (viele fehlerhaft !) beschrieben. DieQualitätistabernichtbesonders,z.TauchaufdenIBM- PC abgestellt. -) Empfehlenswert, wenn auch ausserordentlich knapp und daher nur als Nachschlagewerk geeignet, ist das Handbuch zum Megamax C-Compiler. -) Einige Zeitschriften des Atari-Marktes beginnen Fortsetzungs- reihen zur GEM-Programmierung, die ich aber bisher nicht empfehlen kann. ü ÇFürdieGEM-Programmierungistaußerdemeinsog.Resource ConstructionSeterforderlich.DasisteinProgramm,mitdemdie Menüleisten,Dialog-undAlertboxensowiedieIcons hergestelltwerden.DasProgrammerzeugteinFile,daßauf".RSC" endet(dassog.Resourcefile)undein".H"-File,daßdieAnbindung desResourcefilesan"C"-Programmeerlaubt.DiesesC-Fileenthält Konstantendefinitionenfürjedes"Objekt"(jedesnochsokleine TeileinesResourcefilesistsoeinObjekt),dieanalogauchin ihremForth-Programmauftretenmüssen.VergleichenSiedazubitte dasFileEDIICON.H(für"C")mitEDIICON.SCR,dasdessen ÜbersetzunginForthdarstellt.EinResourceConstructionSet gehörtsowohlzumLieferumfangdesEntwicklungspaketsalsauchzum Megamax-"C"-Paket. üëVerzeichnisderWortederGEM-Bibliothek Ç DieGEM-BibliothekbestehtausdenFilesBASICS.SCR,VDI.SCRund AES.SCR.DieindiesenFilesenthaltenenWortewerdenimfolgenden aufgeführt.DesweiterensollsicheineBibliothekvon"Super- worten"entwickeln,diedieHandhabungderGEM-Routinen vereinfacht.DieseFilessollenüberShadowscreensdokumentiert werdenundsinddaherhierênichtÇaufgeführt. ëBASICS.SCRÇ Vocabulary GEM GEM definitions also \DasVokabular,dasdieGEM-Worteenthält. Create intin $100 allot Create ptsin $100 allot Create intout $100 allot Create ptsout $100 allot Create addrin $100 allot Create addrout $100 allot \DieseArrayswerdenfürdiediversenParameterbenötigt. IhreGrößekannschwankenundistaktuellgeringer. Variable grhandle \DieseVariablenimmtdieHandleauf,dievonOPNVWK geliefertwird. Create contrl $16 allot contrl 2 gemconstant opcode 2 gemconstant #intin 2 gemconstant #intout ' #intout Alias #ptsout 2 gemconstant #addrin 2 gemconstant #addrout 2 gemconstant function \DieKomponentendiesesArraystragenNamenundenthalten dieZahlderParameter,dieindenbetreffendenArrays (s.o.)übergebenwerden. 3 Create global $1E allot \DiesesArrayenthältWerte,diedieApplikation beschreiben. addrout addrin intout intin global contrl 6 gemarray AESpb ptsout intout ptsin intin contrl 5 gemarray VDIpb \DiesebeidenArraysenthaltenZeigeraufdieArrays,die dieParameterenthalten... Code array! ( n0 ... nk-1 adr k --) \SpeichertkWerteabAdresseadrineinemArray. Code 4!  ( n1 .. n4 addr -- ) Code 4@ ( addr -- n1 .. n4 ) \Speichertbzw.liest4WerteabAdresseaddr.Siewerden dazubenutzt,Rechteckeindiediv.Arrayszuschreiben bzw.herauszuholen. Code AES  ( opcode #intin #intout #addrin #addrout -- intout@) \DiesesWortwickeltalleAES-Aufrufeab. Code VDI ( opcode #ptsin #intin --) \DiesesWortwickeltalleVDI-Aufrufeab. ♪⑦: appl_init \DiesesWortinitialisiertdieApplikationundsolltevor demerstenAufrufeinerAES-Funktionaufgerufenwerden. : appl_exit \DiesesWortsollteamEndeeinerApplikationaufgerufen werden. Create sizes 8 allot \DiesesArrayenthältdieGrößeeinesBuchstabensund einerBoxinPixeln : graf_handle \LiefertdieVDI-HandleinderVariablenGRHANDLEunddie Buchstaben-bzw.BoxgrößeinSIZES sizeconstantcwidthsizeconstantcheight sizeconstantbwidthsizeconstantbheight \DiessindNamenfürdieElementedesArraysSIZES.Bei AusführungliefernsiedieentsprechendenAdressen. : opnvwk \Öffneteine"virtualworkstation"undmußaufgerufen werdfen. : clrwk \LöschtdieWorkstation.DerHintergrundwirdinder gewähltenFarbegemalt. : clsvwk \Schließtdie"virtualworkstation".MußvorBeendendes Programmsaufgerufenwerden. : updwk \Updatevirtualworkstation.AlleVDI-Kommandoswerden zuendeausgeführt. : s_clip ( x1 y1 x2 y2 clipflag -- ) \SetzeGrößeundPositiondesClippingrectanglefüralle VDI-Aufrufe. : grinit appl_init graf_handle opnvwk ; \FaßtallebenötigtenAufrufeamAnfangeinerApplikation zusammen. : grexit clsvwk appl_exit ; \dto.fürdieBeendigungeinerApplikation. 2Variable objc_tree \EnthältdieAdressedesObjectbaumes,aufdensich WortederObject-,Form-undMenülibrarybeziehen.In "C"mußbeijedemdieserWortederBaumextraangeführt werden. Variable c_flag \gibtan,obdieAufrufevonSHOW_CundHIDE_C akkumuliertwerdensollen : show_c ( -- ) \SchalteMausan : hide_c ( -- ) \SchaltedieMausaus ëAES.SCRÇ üEvent: Ç : evnt_keybd ( -- key ) \WartetaufeinenKeyboard-event.keybestehtausscan- codeundASCII-Wert. : evnt_button ( #clicks0 bmask bstate -- #clicks1 ) \Wartetaufeinenbutton-event.#clicks0gibtdieAnzahl derClicksan,bmaskundbstategebendiezudrückende Tastean.#clicks1istdieZahlderClicks. : evnt_mouse ( f leftX topY widht height -- ) \Wartetaufeinenmouse-movement-event.fistnullfür dasBetretenund1fürdasVerlassendesdurchleftX topYwidthundheightspezifiziertenRechtecks. Create message $40 allot \DiesesArrayistdermessage-event-buffer. : evnt_mesag ( -- ) \Wartetaufeinenmessage-event. : evnt_timer ( dtime -- ) \WartetaufeinenTimer-event.dtimeistdie(doppelt genaue)zuwartendeZeitinmsec. Create events \DiesesArrayenthältdieParameterdesWortes EVNT_MULTI.DerInhaltdiesesFeldesistwiefolgt: +0:ArtdererkanntenEvents: Bit0Keyboard Bit1Button Bit2Mouserectangle1 Bit3Mouserectangle2 Bit4Message Bit5Timer +2#clicks0 +4bmask +6bstate +8fleftXtopYwidthheight +18-------"------------- +28dtime : prepare \DiesesWortkopiertdenInhaltvonEVENTSindie enstprechendenParameterarraysundsolltevor EVNT_MULRIaufgerufenwerden. : evnt_multi ( -- which ) \DiesesWortwartetaufeinenvonmehrerenmöglichen Events.DasArrayEVENTSenthältdieParameterdieser Routine.whichistdieNummerderaufgetretenenEvents nachdemSchlüsselwiefürdasersteWortvonEVENTS. DieAusgabeparametermüssendenGEM-Arraysentnommen werden... : evnt_dclick ( dnew dgetset -- dspeed ) \DiesesWortsetztoderliestdieZeitspannefüreinen erkanntenMehrfachclick.dgetset=1bedeutet,daßdnew alsneueZeitgesetztwird.dspeedistdieeingestellte Zeitspanne. ♪÷üMenu:Ç : menu_bar ( showflag -- ) \LöschtodersetztdieMenüleiste. : menu_icheck ( item showflag -- ) \SetztoderlöschtdenHakenvoreinemmenuitem : menu_ienable ( item enableflag -- ) \Schalteteinenmenuitemeinoderaus.Ausgeschaltete menuitemserscheineninhellerSchrift. : menu_tnormal ( title normalflag -- ) \StellteinenMenütitelnormaloderinversdar. : menu_text ( item laddr -- ) \ÄndertdenTexteinesmenuitem.DieLängedarfsich abernichtändern! : menu_register( apid laddr -- menuid ) \InstallierteinDesktopAccessoryinderMenüleiste. menuidistdiePositionimMenü üObjectÇ : objc_add ( parent child -- ) \FügteinObjektchildandasEndederchildlistdes Objektesparentan. : objc_delete ( object -- ) \LöschteinObjektvomBaum. : objc_draw ( startob depth x y width height -- ) \ZeichnetdenBaumvonstartobmitderTiefedepthneu.x ywidthundheightgebeneinClipping-Rectanglean. : objc_find ( startob depth x y -- obnum ) \SuchtdasObjektunterderMauspositionxy.Liefert dieObjektnummeroder-1. : objc_offset ( object -- x y ) \LiefertdieBildschirmpositoneinesObjektes : objc_order ( object newpos -- ) \BewegteinObjektvoneinerStelledesBaumszueiner anderen. : objc_edit ( object char index kind -- newindex ) \WirdzumEditierendesTextesinnerhalbeinesObjektes benutzt. : objc_change(objectxywidthheightnewstateredraw--) \ÄndertdenObjektstatusundzeichnetdasObjektneu. üForm:Ç : form_do ( ltree startobj -- objectno ) \DieseRoutinezeigteinObjektanunderlaubtdem Benutzer,eszuändern.objectno.istdieNummerdes exitbutton. : form_dial ( diflag lix liy liw lih bix biy biw bih ) \DieseRoutinebestehtausvierRoutinen,ihreFunktion wirdvondiflagbestimmt: 0ReserviereeinenBildschirmbereichfürein Objekt. 1MaleeinewachsendeBox 2MaleeineschrumpfendeBox 3GibdenreserviertenBildschirmbereichfrei. ♪√: form_alert ( defbttn 0string -- exbttn ) \ErlaubtaufeinfacheArt,Alert-Boxenzubauen.defbttn istderDefaultknopf,0stringisteindurch$00 begrenzterString,derdasAussehenderBoxbestimmt undexbttnistdergedrückteKnopf. : form_error ( enum -- exbttn ) \MalteineAlertboxmitdemText"TOS-Fehler-Nummer sounso" : form_center ( ltree -- x y width height ) \RechnediePositioneinesinderMittedesBildschirms zentriertenObjectesüÇaus. ü Graphic:Ç : graf_dragbox(startxstartywidthheightboundxboundy boundwboundh--finishxfinishy) \MaltdenUmrißeinerBox,dieaufdemBildschirmmitder Mausbewegtwerdenkann.DieBewegungderMauswird durcheinäußeresRechteckbeschränkt. : graf_movebox(sourcexsourceywidthheightdestxdesty--) \MalteineBox,diesichvonsourcenachdestbewegt. : graf_growbox ( stx sty stw sth fix fiy fiw fih -- ) \MalteineexpandierendeBox. : graf_shrinkbox ( fix fiy fiw fih stx sty stw sth -- ) \MalteineschrumpfendeBox. : graf_watchbox ( object instate outstate -- inside/outside ) \ÜberwachtdieBewegungderMausinnerhalbeines Objektes.... : graf_slidebox ( parent object vhflag -- vhpos ) \ÜberwachtdasZieheneinerkleinenBoxineinergroßen BoxmitderMaus.... 2Variable mofaddr \ZeigeraufeineselbstdefinierteMausform : graf_mouse ( mouseform -- ) \SetztdieMausform: 0Pfeil 1Cursor 2Biene 3Zeigefinger 4Hand 5dünnesFadenkreuz 6dickesFadenkreuz 7FadenkreuzmitUmriß 255selbstdefiniert 256hidemouse 257showmouse : graf_mkstate ( -- ) \liefertMauspositionundKnöpfeindendiv.Arrayszurück. ü Fileselect: ÇCreateinpath \DerDefaultpathstehtindiesemArraymiteinem$00-Byte abgeschlossen. Createinsel \DerNamedesselektiertenFiles... ♪√:fsel_input(--button) \maltdiesog.Fileselectorboxundwartetaufdie AuswahleinesFiles.buttonistdergedrückteKnopf(0 =Cancel) üWindow:Ç : wind_create(componentsleftXtopYmaxWIDTHmaxHEIGTH-- handle) \diesesWorterzeugteinFenstermitdiv.Bestandteilen undeinerMaximalgröße.LieferteineHandlefür's Fenster. :wind_open ( W-handle leftX topY width height -- ) \MalteinFensterinderangegebenGrößeaufdem Bildschirm. : wind_close ( Whandle -- ) \SchließtundlöschteinFenster.Eskannauchwieder geöffnetwerden. : wind_delete ( Whandle -- ) \LöschteinFenster,sodaßesnichtmehrgeöffnetwerden kann. : wind_get ( Whandle funktion# -- ) \Liefertdiv.InformationenübereinFenster... : wind_set ( Whandle funktion# par0 par1 par2 par3 -- ) \Setztdiv.AttributeeinesFensterwieTitelzeile, Sliderpos.usw. : wind_find ( mouseX mouseY -- Whandle ) \SuchtdasFensterunterderMausposition. : wind_update( funktion# -- ) \wirdbenutzt,umdieManipulationananderenFenstern oderMenüauswahlwährenddesZeichnenszuunterbinden. : wind_calc ( 0/1 components leftX topY width height -- ) \KonvertiertbeiFensterndieInnen-inAußenmaße(0) oderumgekehrt(1).DieAusgabeerfolgtindenGEM- Arrays. üRSRCÇ: : rsrc_load ( addr -- ) \ needs address of 0-terminated $ \LädteinResourcefileindenSpeicher. : rsrc_load" \LädtdasResourcefile,dessenName,durchein" begrenzt,aufdiesesWortfolgt. : rsrc_free ( -- ) \GibtdendurcheinResourcefilebeanspruchtenSpeicher- bereichwiederfrei. : rsrc_gaddr ( type index -- laddr ) \LiefertdieAdresseeinesObjektesimResourcefile. : rsrc_saddr ( type index laddr --) \SpeichertdieAdresseeinesObjektesab. : rsrc_obfix ( index laddr --) \KonvertiertObjektlageundGrößevonCharacter-in Pixeleinheiten. ëVDI.SCRÇ üOutputFunction Ç: pline ( x1 y1 x2 y2 ... xn yn count -- ) \malteinegeknickteLinievonx1,y1zux2,y2usw. : pmarker ( x1 y1 x2 y2 ... xn yn count -- ) \GibtPolymarkeraus. : gtext ( addr count x y -- ) \GibtTextanderangegebenenStelleaus. : fillarea ( x1 y1 x2 y2 ... xn yn count -- ) \MalteinausgefülltesVieleck. : contourfill ( color x y -- ) \füllteingemaltenBereichaus. : r_recfl ( x1 y1 x2 y2 -- ) \MalteinRechteckohneRand. : GDP ( #ptsin #intin functionno -- ) \Allg.Malroutine : bar ( x1 y1 x2 y2 -- ) \MalteingefülltesRechteckmitRand. : arc ( startwinkel endwinkel x y radius -- ) \MaltdenAusschnitteinesKreises. :pie ( startwinkel endwinkel x y radius -- ) \MalteinStückTorte. : circle ( x y radius -- ) \MalteinenKreis : ellarc ( startwinkel endwinkel x y xradius yradius -- ) \MalteinenEllipsenabschnitt : ellpie ( startwinkel endwinkel x y xradius yradius -- ) \Jetztgefüllt! : ellipse ( x y xradius yradius -- ) \Undnochmal,bloßganz. : rbox ( x1 y1 x2 y2 -- ) \RechteckmitabgerundetenEcken : rfbox ( x1 y1 x2 y2 -- ) \gefüllt. : justified ( string x y length wordspace charspace -- ) \TextausgabemitdefinierterLänge,maximalemWort-und Buchstabenabstand. üAttributeFunctionÇ: : swr_mode ( mode -- ) \SetztAusgabemodus... 1 Setmode replace 2 Setmode transparent 3 Setmode exor 4 Setmode revtransparent : sl_type ( style -- ) \SetztPolylinetype 1 Settype solid 2 Settype longdash 3 Settype dot 4 Settype dashdot 5 Settype dash 6 Settype dashdotdot 7 Settype userdef ♪⑧: sl_udsty ( pattern -- ) \setztuserdefinedlinestyle : sl_width ( width -- ) \setztpolylinelinewidth : sl_color ( color -- ) \setztpolylinecolorindex : sl_ends ( begstyle endstyle -- ) \setztpolylineendstyles : sm_type ( symbol -- ) \setztpolymarkertype 1 Setmtype point 2 Setmtype plus 3 Setmtype asterisk 4 Setmtype square 5 Setmtype cross 6 Setmtype diamond : sm_height ( height -- ) \setztpolymarkerheight : sm_color ( color -- ) \setztpolymarkercolorindex : st_height ( height -- ) \setzttextcharacterheight(absolut) : st_point ( point -- ) \setzttextcharacterheight(points) : st_rotation ( winkel -- ) \setztcharacterbaselinerotation : st_font ( font -- ) \setztcharacterfont : st_color ( color -- \setzttextcolour : st_effects ( effect -- ) \setztfett,kursivusw. : st_alignement( horin vertin -- ) \setztcharacteralignment : sf_interior ( style -- \setztfillinteriorstyle : sf_style ( styleindex -- ) \setztfillstyleindex : sf_color ( color -- ) \setztfillcolourindexfürVielecke : sf_perimeter ( pervis -- ) \schaltetfilloutlineum. üRasterOperation: ÇDieRasteroperationendienenzumschnellenVerschiebenvon BildschirmbereichensowohlaufdemBildschirmselbstalsauchvom BildschirmindenSpeicherundzurück.Daessichumsehrschnelle Routinenhandelt,solltevonihnenimmerdannGebrauchgemacht werden,wennBildschirminhalterestauriertwerdenmüssen.Alle -sonstnotwendigen-Ausgaberoutinenbrauchenerheblichmehr Zeit. Variable>memMFDB CreatescrMFDB DieMemoryFormDefinitionBlocksbeschreibendenAufbaueines PixelblocksimSpeicheroderaufdemBildschirm.Ummitmehreren Speicherbereichenarbeitenzukönnen,enthält>memMFDBeinen PointeraufdengeradebenutztenBereich. : copyopaque ( Xfr Yfr width height Xto Yto mode --) \GrundroutinefüralleRasteroperationen :scr>mem(addr_of_memMFDB--) \DefiningWordfürRasteroperation(Bildschirm->Speicher) :mem>scr(addr_of_memMFDB--) \DefiningWordfürRasteroperation(Speicher->Bildschirm) : scr>scr ( Xfr Yfr width height Xto Yto --) \verschiebteinRechteckaufdemBildschirm. CreatememMFDB1 \EinSpeicherblock,derdengesamtenBildschirmspeichern kann. : scr>mem1 ( Xleft Ytop Width Heigth -- ) \verschiebtdengesamtenBildschirmindenSpeicher. : mem>scr1 ( Xleft Ytop Width Heigth -- ) \verschiebtdenSpeicherblockwiederindenBildschirm. : r_trnfm ( -- ) \rechnetStandard-Koordinateningerätespezifischeumund umgekehr. : get_pixel ( x y -- color flag ) \ermitteltFarbeeinesPixels.flagist1,wennPunkt gesetzt. ♪⑧üInputÇ: : sin_mode ( devtype mode -- ) \legtdenInputmodusfest.... : sm_locater ( x y -- status ) \PositionderMaus,AngabederAnfangspos.erforderlich : sm_valuator ( val_in -- status ) \VerwaltungvonWertänderungen.... : sm_choice ( -- status ) \TestedieFunktionstasten : sm_string ( addr max_len echomode x y -- status ) \EingabeeinesStringsmitEcho. : sc_form ( addr -- ) \setztMausform : ex_time ( tim_addr -- long_otim_addr ) \setztneueTimerinterrupt-Routine : q_mouse ( -- x y status ) \LiestdenMauszustandaus. : ex_butv ( pusrcode -- long_psavcode ) \ErsetztMausbuttoninterruptroutine : ex_motv ( pusrcode -- long_psavcode ) \...Mausbewegungsinterruptroutine... : ex_curv ( pusrcode -- long_psavcode ) \...Mausforminterruptroutine... : q_key_s ( -- status ) \liefertZustandderShift-Tasten. üInquire: Ç : q_extnd ( info_flag -- ) \DieseunddiefolgendenFunktionendienendazu, festzustellen,welchederobigenVDI-Aufrufeman getätigthat.Mankannsienichtkurzbeschreiben, dahermußdieEingangserwähnteLiteraturzuRate gezogenwerden. : q_color ( color_index info_flag ) : ql_attributes ( -- ) : qm_attributes ( -- ) : qf_attributes ( -- ) : qt_attributes ( -- ) : qt_extent ( string -- ) : qt_width ( char -- status ) : qt_name ( element_num -- ) : q_cellarray ( cols rows x1 y1 x2 y2 -- ) : qin_mode ( dev_type -- mode ) : qt_fontinfo ( -- ) Escape: : q_chcells ( -- rows cols ) \GrößedesBildschirms : exit_cur ( -- ) \textcursoraus : enter_cur ( -- ) \textcursorein : curup ( -- ) \hoch : curdown ( -- ) \runter : curright ( -- ) \???? : curleft ( -- ) \!!!! : curhome ( -- ) \cursornachlinksoben : eeos ( -- ) \erasetoendofscreen : eeol ( -- ) \-----"-------line : s_curaddress ( row col -- ) \positionierecursor : curtext ( addr count -- ) \textausgabe : rvon ( -- ) \reversevideoon : rvoff ( -- ) \----"------off : q_curaddress ( -- row col ) \fragenachcursoradress : q_tabstatus ( -- status ) \fragenachMausstatus : hardcopy ( -- ) \screendump : dspcur ( x y -- ) \positionieremaus : rmcur ( -- ) \entferneMaus DiefolgendenBefehledienenzurArbeitmitverschiedenenOutput- Devices.DiesisteinbesondersschlechtdokumentierterTeil. EinigeHinweisefindetmaninderDokumentationzum EntwicklungspaketvonDigitalResearch.Esistfraglich,oballe BefehletatsächlichaufdemAtariarbeiten.Versucheindieser Richtungsindbislangnochnichterfolgreichgewesen. : form_adv ( -- ) \FürDrucker:Seitenvorschub : output_window( x1 y1 x2 y2 -- ) \FürDrucker:GibteinFensteraus. : clear_disp_list ( -- ) \FürDrucker:brichtAusdruckab,wieClearWorkstation, aberohneabschließendesLinefeed. : bit_image ( string aspect scaling num_pts x1 y1 x2 y2 -- ) \FürDrucker:Gibtein'BitImageFile'aus. DiefolgendenBefehlebeziehensichaufzusätzlicheOutput- Treiber;einEffektaufdemAtariistbishernichtbekannt.Sie sindnurderVollständigkeithalberaufgeführt. : s_palette ( palette -- selected ) \setztFarbpaletteaufIBM-Farbmonitor??!! : qp_films ( -- ) : qp_state ( -- ) : sp_state ( addr -- ) : sp_save ( -- ) : sp_message ( -- ) : qp_error ( -- ) : meta_extents ( x1 y1 x2 y2 -- ) : write_meta ( intin num_intin ptsin num_ptsin -- ) : m_filename ( string -- )